# test summary of subject level dataset
adsl <- read.xport(
  file="http://phuse-scripts.googlecode.com/svn/trunk/lang/R/report/test/data/adsl.xpt")
summary(adsl)